home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok73 / ums / demos&utils / source / dumpconfig.mod next >
Encoding:
Text File  |  1993-11-04  |  874 b   |  34 lines
  1. MODULE DumpConfig;
  2.  
  3. IMPORT ums, umsConsts, MHArgs, io, Utility, SYSTEM, NoGuru;
  4.  
  5. VAR
  6.   login        : LONGINT;
  7.   cfg        : MHArgs.Config;
  8.   name,pwd,file    : ARRAY 256 OF CHAR;
  9.  
  10. BEGIN
  11.   cfg := MHArgs.OpenConfig( "NAME/A,PASSWORD/A,FILE", "", NIL);
  12.   IF cfg = NIL THEN  HALT(20)  END;
  13.   IF cfg.GetString( "NAME", name) & cfg.GetString( "PASSWORD", pwd)  THEN
  14.     login := ums.Login( name, pwd);
  15.     IF login = 0 THEN
  16.       io.WriteString("login failure\n");
  17.     ELSE
  18.       IF ~cfg.GetString( "FILE", file) THEN
  19.         file := "CON:////UMS-Configuration/CLOSE/WAIT";
  20.       END;
  21.       IF NOT ums.WriteUMSConfigTags( login,
  22.                Utility.user + umsConsts.tagCfgDump,  SYSTEM.ADR(file),
  23.                Utility.done)
  24.       THEN
  25.         io.WriteString("error with WriteUMSConfig()\n");
  26.       END;
  27.     END;
  28.   END;
  29.  
  30. CLOSE
  31.   IF login # 0 THEN  ums.Logout(login)  END;
  32. END DumpConfig.
  33.  
  34.